perm filename TTEST.SAI[HAL,HE]1 blob
sn#227536 filedate 1976-07-23 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN "ttest"
C00004 ENDMK
Cā;
BEGIN "ttest"
DEFINE ! = " COMMENT ";
REQUIRE "MAKETF.REL[HAL,HE]" LOAD_MODULE;
EXTERNAL PROCEDURE MAKETFILE (REFERENCE STRING MESSG);
EXTERNAL PROCEDURE INITMTF;
REQUIRE "TRJDPY.REL[HAL,HE]" LOAD_MODULE;
EXTERNAL PROCEDURE DISPLAY(STRING MESSG);
PRINT("HERE WE GO!"&'12&'15);
INITMTF;
WHILE TRUE DO
BEGIN "driver"
STRING MESSG;
MAKETFILE(MESSG);
DISPLAY(MESSG);
END "driver";
END "ttest";